home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / GUIGetMsg.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.5 KB  |  47 lines
  1.  
  2. ;-------------------------------------------------------------------------------------
  3. ; Example - Press the button to see the value of the radio boxes
  4. ; The script also detects state changes (closed/minimized/timeouts, etc).
  5.  
  6. #include <GUIConstants.au3>
  7.  
  8. Opt("GUICoordMode", 1)
  9. GUICreate("Radio Box Demo", 400,280)
  10.  
  11. ; Create the controls
  12. $button_1 = GUICtrlCreateButton ("B&utton 1", 30, 20, 120, 40)
  13. $group_1 = GUICtrlCreateGroup ("Group 1", 30, 90, 165, 160)
  14. GUIStartGroup()
  15. $radio_1 = GUICtrlCreateRadio ("Radio &0", 50, 120, 70, 20)
  16. $radio_2 = GUICtrlCreateRadio ("Radio &1", 50, 150, 60, 20)
  17. $radio_3 = GUICtrlCreateRadio ("Radio &2", 50, 180, 60, 20)
  18.  
  19. ; Init our vars that we will use to keep track of GUI events
  20. $radioval1 = 0    ; We will assume 0 = first radio button selected, 2 = last button
  21. $radioval2 = 2
  22.  
  23. ; Show the GUI
  24. GUISetState ()
  25.  
  26. ; In this message loop we use variables to keep track of changes to the radios, another
  27. ; way would be to use GUICtrlRead() at the end to read in the state of each control
  28. While 1
  29.    $msg = GUIGetMsg()
  30.    Select
  31.        Case $msg = $GUI_EVENT_CLOSE
  32.          MsgBox(0, "", "Dialog was closed") 
  33.          Exit
  34.       Case $msg = $GUI_EVENT_MINIMIZE
  35.          MsgBox(0,"", "Dialog minimized",2)
  36.       Case $msg = $GUI_EVENT_MAXIMIZE
  37.          MsgBox(0,"", "Dialog restored",2)
  38.    
  39.       Case $msg = $button_1
  40.          MsgBox(0, "Default button clicked", "Radio " & $radioval1 )
  41.          
  42.       Case $msg >= $radio_1 AND $msg <= $radio_3
  43.          $radioval1 = $msg - $radio_1
  44.  
  45.    EndSelect
  46. WEnd
  47.